home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON06 / ACT06A / common6a.cst / 00006_speaker.ls < prev    next >
Encoding:
Text File  |  2003-04-30  |  604 b   |  24 lines
  1. property pspeakerSprSpr,paudioList
  2.  
  3.  
  4. on exitframe me
  5.   if the spriteNum of me <0 then  --only if it's a frame script
  6.     animateSpeaker pspeakerSprSpr,value(paudioList)
  7.   end if
  8. end
  9.  
  10.  
  11. on mouseUp me
  12.   if the spriteNum of me >0 then  --only if it's a sprite script
  13.     animateSpeaker pspeakerSprSpr,value(paudioList)
  14.   end if
  15. end
  16.  
  17.  
  18.  
  19. on getPropertyDescriptionList
  20.   set description=[:] 
  21.   addProp description,#pspeakerSprSpr,[#default:117,#format:#integer,#comment:"Enter speaker's sprite:"]
  22.   addProp description,#paudioList,[#default:"",#format:#list,#comment:"Enter audio list:"]
  23.   return description
  24. end